Software Vault: The Diamond Collection/The Diamond Collection (Software Vault)(Digital Impact).ISO/cdr37/match_10.zip/MENTER.WCX

Wildcat! WCX | 1995-03-11 | 7KB | 560 lines

'! Decompiled with wccNosy version 4.20f (freeware)
'! Input File: in.wcx  7295 bytes  01/29/123  04:30:30pm
'! Code Segment Size  :4657 bytes
'! Data Segment Size  :4756 bytes
'! String Segment Size:2638 bytes
'! Compiled with WCC version 4.01

      Dim i4463 As Integer
      Dim s4465 As String
      Dim b4469 As Byte
      Dim s4470 As String
      Dim s4474 As String
      Dim s4478 As String
      Dim s4482 As String
      Dim s4486 As String
      Dim s4490 As String
      Dim s4494 As String
      Dim s4498 As String
      Dim s4502 As String
      Dim s4506 As String
      Dim s4510 As String
      Dim s4514 As String
      Dim s4518 As String
      Dim s4526 As String
      Dim s4530 As String
      Dim s4534 As String
      Dim s4538 As String
      Dim s4542 As String
      Dim s4546 As String
      Dim s4550 As String
      Dim s4554 As String
      Dim s4558 As String
      Dim s4562 As String
      Dim s4566 As String
      Dim s4570 As String
      Dim s4574 As String
      Dim s4578 As String
      Dim s4582 As String
      Dim s4586 As String
      Dim s4590 As String
      Dim s4594 As String
      Dim s4598 As String
      Dim s4602 As String
      Dim s4606 As String
      Dim s4610 As String
      Dim s4642 As String
      Dim s4646 As String
      Dim s4650 As String
      Dim s4654 As String
      Dim s4658 As String
      Dim s4662 As String
      Dim s4666 As String
      Dim s4670 As String
      Dim s4674 As String
      Dim s4678 As String
      Dim s4682 As String
      Dim s4686 As String
      Dim s4690 As String
      Dim s4694 As String
      Dim s4698 As String
      Dim s4702 As String
      Dim s4706 As String
      Dim s4710 As String
      Dim s4714 As String
      Dim l4718 As Long
      Dim s4722 As String*30
      Dim s4752 As String

      b4469 = User.Sex
      Open "matcher!.cfg" For Input As 1
      Input #1, s4474
      Input #1, s4478
      Input #1, s4482
      Input #1, s4486
      Input #1, s4490
      Input #1, s4494
      Input #1, s4498
      Input #1, s4502
      Input #1, s4506
      Input #1, s4510
      Input #1, s4514
      Close 1
      If b4469 = 1 Then
        s4470 = "M"
      Else
  187   If b4469 = 2 Then
          s4470 = "F"
        Else
  217     Print "You Need to edit your user information from the main menu to show"
          Print "Whether you are Male or Female, not 'Not Disclosed'.  Do this, then"
          Print "ReEnter this program.  Thank you!"
          WaitEnter
          GoTo 4385
        End If
      End If
  253 i4463 = User.UserId
      Open s4498 For Output As 3
      Print #3, s4502; s4470; i4463
      Close 3
      Open s4498 For Input As 4
      Input #4, s4465
      Close 4
      s4642 = "Agedisp2.bbs"
      s4646 = "HitDisp2.bbs"
      s4650 = "WetDisp2.bbs"
      s4654 = "HarDisp2.bbs"
      s4658 = "EyeDisp2.bbs"
      s4662 = "MarDisp2.bbs"
      s4666 = "usexdis2.bbs"
      s4670 = "TMusic.bbs"
      s4674 = "MBand.bbs"
      s4678 = "Sport.bbs"
      s4682 = "Smoke.bbs"
      s4686 = "TVShow.bbs"
      s4690 = "Movie.bbs"
      s4694 = "Book.bbs"
      s4698 = "Author.bbs"
      s4702 = "Religion.bbs"
      s4706 = "food.bbs"
      s4710 = "Sdrink.bbs"
      s4714 = "kids.bbs"
      If Exists(s4465) Then
        GoTo 4362
      Else
  540   Cls
        Print
        Print "You will now enter your Information.  You will be asked a series of questions"
        Print "about yourself.  Please answer them truthfully.  And remember, other users"
        Print "will see this!  Have fun!"
        Print
        WaitEnter
        Cls
        Color 9, 0
        Print "What is your REAL name? @01@(@0F@Optional@01@)@0B@"
        Color 15, 0
        s4526 = InputMask("", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", "", 1213417543)
        Cls
        Print
        Color 9, 0
        Print "What other Alias/Handles do you use? (If applicable)"
        Color 15, 0
        s4530 = InputMask("", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", "", 1213417543)
        Do
  681     DisplayHelp s4666
          s4562 = InputMask(" ", "9", "", 1213417543)
          If s4562 = "1" Then
            s4562 = "Male"
            GoTo 785
          End If
  747     If s4562 = "2" Then
            s4562 = "Female"
            GoTo 785
          End If
  779   Loop
        Do
  785     DisplayHelp s4662
          s4554 = InputMask(" ", "9", "", 1213417543)
          If s4554 = "1" Then
            s4554 = "Single"
            GoTo 1066
          End If
  851     If s4554 = "2" Then
            s4554 = "Involved"
            GoTo 1066
          End If
  883     If s4554 = "3" Then
            s4554 = "Engaged"
            GoTo 1066
          End If
  915     If s4554 = "4" Then
            s4554 = "Married"
            GoTo 1066
          End If
  947     If s4554 = "5" Then
            s4554 = "Separated"
            GoTo 1066
          End If
  979     If s4554 = "6" Then
            s4554 = "Divorced"
            GoTo 1066
          End If
 1011     If s4554 = "7" Then
            s4554 = "Widowed"
            GoTo 1066
          End If
 1043     If (s4554 = "") = 0 Then GoTo 1066
        Loop
 1066   Cls
        Print
        Color 9, 0
        Print "What are your hobbies?"
        Color 15, 0
        s4558 = InputMask("", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", "", 1213417543)
        Print
        Color 9, 0
        Do
 1127     DisplayHelp s4670
          s4566 = InputMask("", "99", "", 1213417543)
          If s4566 = "1" Then
            s4566 = "Easy Listening"
            GoTo 1551
          End If
 1193     If s4566 = "2" Then
            s4566 = "Pop"
            GoTo 1551
          End If
 1225     If s4566 = "3" Then
            s4566 = "Hard Rock"
            GoTo 1551
          End If
 1257     If s4566 = "4" Then
            s4566 = "Heavy Metal"
            GoTo 1551
          End If
 1289     If s4566 = "5" Then
            s4566 = "Alternative"
            GoTo 1551
          End If
 1321     If s4566 = "6" Then
            s4566 = "Industrial"
            GoTo 1551
          End If
 1353     If s4566 = "7" Then
            s4566 = "Grunge"
            GoTo 1551
          End If
 1385     If s4566 = "8" Then
            s4566 = "Rap"
            GoTo 1551
          End If
 1417     If s4566 = "9" Then
            s4566 = "Soul"
            GoTo 1551
          End If
 1449     If s4566 = "10" Then
            s4566 = "Classical"
            GoTo 1551
          End If
 1481     If s4566 = "11" Then
            s4566 = "Opera"
            GoTo 1551
          End If
 1513     If s4566 = "12" Then
            s4566 = "Country"
            GoTo 1551
          End If
 1545   Loop
        Do
 1551     DisplayHelp s4674
          s4570 = InputMask("", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", "", 1213417543)
          If (s4570 = "") = 0 Then GoTo 1608
        Loop
        Do
 1608     DisplayHelp s4678
          s4574 = InputMask("", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", "", 1213417543)
          If (s4574 = "") = 0 Then GoTo 1665
        Loop
        Do
 1665     DisplayHelp s4682
          s4578 = InputMask("", "9", "", 1213417543)
          If s4578 = "1" Then
            s4578 = "Yes, Quite Often"
            GoTo 1865
          End If
 1731     If s4578 = "2" Then
            s4578 = "Yes, Occasionally"
            GoTo 1865
          End If
 1763     If s4578 = "3" Then
            s4578 = "Yes, But Rarely"
            GoTo 1865
          End If
 1795     If s4578 = "4" Then
            s4578 = "No, But I don't mind Smokers"
            GoTo 1865
          End If
 1827     If s4578 = "5" Then
            s4578 = "No, and I can't stand the Smoke"
            GoTo 1865
          End If
 1859   Loop
        Do
 1865     DisplayHelp s4686
          s4582 = InputMask("", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", "", 1213417543)
          If (s4582 = "") = 0 Then GoTo 1922
        Loop
        Do
 1922     DisplayHelp s4690
          s4586 = InputMask("", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", "", 1213417543)
          If (s4586 = "") = 0 Then GoTo 1979
        Loop
        Do
 1979     DisplayHelp s4694
          s4590 = InputMask("", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", "", 1213417543)
          If (s4590 = "") = 0 Then GoTo 2036
        Loop
        Do
 2036     DisplayHelp s4698
          s4594 = InputMask("", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", "", 1213417543)
          If (s4594 = "") = 0 Then GoTo 2093
        Loop
        Do
 2093     DisplayHelp s4702
          s4598 = InputMask("", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", "", 1213417543)
          If (s4598 = "") = 0 Then GoTo 2150
        Loop
        Do
 2150     DisplayHelp s4706
          s4602 = InputMask("", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", "", 1213417543)
          If (s4602 = "") = 0 Then GoTo 2207
        Loop
        Do
 2207     DisplayHelp s4710
          s4606 = InputMask("", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", "", 1213417543)
          If (s4606 = "") = 0 Then GoTo 2264
        Loop
        Do
 2264     DisplayHelp s4714
          s4610 = InputMask("", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", "", 1213417543)
          If (s4610 = "") = 0 Then GoTo 2321
        Loop
        Do
 2321     DisplayHelp s4642
          s4534 = InputMask("", "99", "", 1213417543)
          If s4534 = "1" Then
            s4534 = "Under 13"
            GoTo 2730
          End If
 2387     If s4534 = "2" Then
            s4534 = "13-15"
            GoTo 2730
          End If
 2419     If s4534 = "3" Then
            s4534 = "16-18"
            GoTo 2730
          End If
 2451     If s4534 = "4" Then
            s4534 = "19-21"
            GoTo 2730
          End If
 2483     If s4534 = "5" Then
            s4534 = "22-25"
            GoTo 2730
          End If
 2515     If s4534 = "6" Then
            s4534 = "26-29"
            GoTo 2730
          End If
 2547     If s4534 = "7" Then
            s4534 = "30-35"
            GoTo 2730
          End If
 2579     If s4534 = "8" Then
            s4534 = "36-40"
            GoTo 2730
          End If
 2611     If s4534 = "9" Then
            s4534 = "41-50"
            GoTo 2730
          End If
 2643     If s4534 = "10" Then
            s4534 = "51-60"
            GoTo 2730
          End If
 2675     If s4534 = "11" Then
            s4534 = "Above 60"
            GoTo 2730
          End If
 2707     If (s4534 = "") = 0 Then GoTo 2730
        Loop
        Do
 2730     DisplayHelp s4646
          s4538 = InputMask("", "X", "", 1213417543)
          If s4538 = "1" Then
            s4538 = "Under 5'0"
            GoTo 2947
          End If
 2796     If s4538 = "2" Then
            s4538 = "5'1 - 5'5"
            GoTo 2947
          End If
 2828     If s4538 = "3" Then
            s4538 = "5'6 - 5'9"
            GoTo 2947
          End If
 2860     If s4538 = "4" Then
            s4538 = "5'10 - 6'0"
            GoTo 2947
          End If
 2892     If s4538 = "5" Then
            s4538 = "Above 6'0"
            GoTo 2947
          End If
 2924     If (s4538 = "") = 0 Then GoTo 2947
        Loop
        Do
 2947     DisplayHelp s4650
          s4542 = InputMask("", "XX", "", 1213417543)
          If s4542 = "1" Then
            s4542 = "Under 100"
            GoTo 3356
          End If
 3013     If s4542 = "2" Then
            s4542 = "101 - 110"
            GoTo 3356
          End If
 3045     If s4542 = "3" Then
            s4542 = "111 - 120"
            GoTo 3356
          End If
 3077     If s4542 = "4" Then
            s4542 = "121 - 130"
            GoTo 3356
          End If
 3109     If s4542 = "5" Then
            s4542 = "131 - 140"
            GoTo 3356
          End If
 3141     If s4542 = "6" Then
            s4542 = "141 - 150"
            GoTo 3356
          End If
 3173     If s4542 = "7" Then
            s4542 = "151 - 170"
            GoTo 3356
          End If
 3205     If s4542 = "8" Then
            s4542 = "171 - 190"
            GoTo 3356
          End If
 3237     If s4542 = "9" Then
            s4542 = "191 - 210"
            GoTo 3356
          End If
 3269     If s4542 = "10" Then
            s4542 = "211 - 240"
            GoTo 3356
          End If
 3301     If s4542 = "11" Then
            s4542 = "Above 240"
            GoTo 3356
          End If
 3333     If (s4542 = "") = 0 Then GoTo 3356
        Loop
        Do
 3356     DisplayHelp s4654
          s4546 = InputMask("", "X", "", 1213417543)
          If s4546 = "1" Then
            s4546 = "Blonde"
            GoTo 3573
          End If
 3422     If s4546 = "2" Then
            s4546 = "Red"
            GoTo 3573
          End If
 3454     If s4546 = "3" Then
            s4546 = "Brown"
            GoTo 3573
          End If
 3486     If s4546 = "4" Then
            s4546 = "Black"
            GoTo 3573
          End If
 3518     If s4546 = "5" Then
            s4546 = "Other"
            GoTo 3573
          End If
 3550     If (s4546 = "") = 0 Then GoTo 3573
        Loop
        Do
 3573     DisplayHelp s4658
          s4550 = InputMask("", "X", "", 1213417543)
          If s4550 = "1" Then
            s4550 = "Blue"
            GoTo 3822
          End If
 3639     If s4550 = "2" Then
            s4550 = "Green"
            GoTo 3822
          End If
 3671     If s4550 = "3" Then
            s4550 = "Grey"
            GoTo 3822
          End If
 3703     If s4550 = "4" Then
            s4550 = "Brown"
            GoTo 3822
          End If
 3735     If s4550 = "5" Then
            s4550 = "Black"
            GoTo 3822
          End If
 3767     If s4550 = "6" Then
            s4550 = "Other"
            GoTo 3822
          End If
 3799     If (s4550 = "") = 0 Then GoTo 3822
        Loop
 3822   Print
        Print "Okay, You're done!"
        If s4562 = "Male" Then
          s4518 = "M"
        Else
 3865     If s4562 = "Female" Then
            s4518 = "F"
          End If
        End If
 3891   Open s4506 For Output As 7
        Print #7, s4465
        Close 7
        Open s4506 For Input As 8
        Input #8, s4465
        Close 8
        Open s4465 For Output As 1
        Print #1, User.UserId
        Print #1, s4526
        Print #1, s4530
        Print #1, s4534
        Print #1, s4538
        Print #1, s4542
        Print #1, s4546
        Print #1, s4550
        Print #1, s4554
        Print #1, s4558
        Print #1, s4562
        Print #1, s4566
        Print #1, s4570
        Print #1, s4574
        Print #1, s4578
        Print #1, s4582
        Print #1, s4586
        Print #1, s4590
        Print #1, s4594
        Print #1, s4598
        Print #1, s4602
        Print #1, s4606
        Print #1, s4610
        Close 1
        If s4562 = "Male" Then
          s4562 = "M"
        Else
 4223     If s4562 = "Female" Then
            s4562 = "F"
          End If
        End If
 4249   s4752 = s4562
        l4718 = User.UserId
        s4722 = User.Name
        Open s4510 For Append As 8
        Print #8, User.UserId; , ; s4752; , ; User.Name
        Close 8
        WaitEnter
      End If
 4356 GoTo 4385
 4362 Print
      Print "@0F@You have already filled out your information!  Please choose to EDIT your"
      Print "information from the main Matcher menu.  Thanks"
      WaitEnter
 4385 Chain s4514, ""